home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / History.dxr / 00004_3 choice clickon.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  289 b   |  9 lines
  1. on mouseDown
  2.   set vThisSprite to the clickOn
  3.   set vTheseButtons to [5, 6, 7]
  4.   set vChoices to [#yes, #no, #not]
  5.   set vButtonNum to vThisSprite - (getAt(vTheseButtons, 1) - 1)
  6.   set vThisChoice to getAt(vChoices, vButtonNum)
  7.   historyChoice(vTheseButtons, vThisChoice, vThisSprite)
  8. end
  9.